home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / comsh17.arc / SESSIO.CSH < prev    next >
Encoding:
Text File  |  1985-06-03  |  2.8 KB  |  139 lines
  1. clear
  2. rm sess.csh
  3. apl sess.csh login
  4. : mainmenu
  5. clear
  6. echo
  7. echo
  8. echo
  9. echo "                Session Generation"
  10. echo "                ------------------"
  11. echo
  12. echo "                    Main Menu"
  13. echo "                    ---------"
  14. echo
  15. echo "        1)    Log off"
  16. echo "        2)    Visit a SIG"
  17. echo "        3)    Abort creation of file"
  18. echo
  19. echo
  20. echo
  21. echo
  22. echo -n "Your choice:"
  23. read choice
  24. if same $choice 1 logoff
  25. if same $choice 2 sigmenu
  26. if same $choice 3 abort
  27. echo
  28. echo -n "That was an illegal choice.  Press return, please: "
  29. read choice
  30. goto mainmenu
  31. : logoff
  32. apl sess.csh logoff
  33. goto end
  34. : sigmenu
  35. echo -n "Please enter the page number of the SIG:"
  36. read choice
  37. apl sess.csh "gosig " $choice
  38. : sig2menu
  39. clear
  40. echo
  41. echo
  42. echo
  43. echo "                SIG Menu"
  44. echo "                --------"
  45. echo
  46. echo "        1)    Read all new messages"
  47. echo "        2)    Read your messages, qsn, and set high message counter~"
  48. echo "        3)    Post a new message"
  49. echo "        4)    Post a reply"
  50. echo "        5)    Set section"
  51. echo "        6)    Read Indivdual"
  52. echo "        m)    Return to main menu"
  53. echo
  54. echo
  55. echo
  56. echo
  57. echo -n "Your choice:"
  58. read choice
  59. if same $choice 1 sigrn
  60. if same $choice 2 sigrm
  61. if same $choice 3 sigl
  62. if same $choice 4 sigre
  63. if same $choice 5 sigss
  64. if same $choice 6 sigri
  65. if same $choice m mainmenu
  66. if same $choice M mainmenu
  67. echo
  68. echo -n "Invalid choice.  Please enter a return:"
  69. read choice
  70. goto sig2menu
  71.  
  72. : sigrn
  73. apl sess.csh rn
  74. goto sigwrite
  75.  
  76. : sigrm
  77. apl sess.csh rmqsnrr
  78.  
  79. : sigwrite
  80. echo -n "Write results to what file:"
  81. read choice
  82. apl sess.csh "write " $choice
  83. goto sig2menu
  84.  
  85.  
  86. : sigl
  87. echo -n "Please enter the file name containing the message:"
  88. read fname
  89. if !fexist $fname sigerfile
  90. echo -n "Please enter to whom the message is for:"
  91. read to
  92. echo -n "Please enter the subject:"
  93. read subject
  94. echo -n "Please enter the section (precede with 'P' for private):"
  95. read section
  96. apl sess.csh "leave " $fname " " $subject " " $to " " $section
  97. goto sig2menu
  98.  
  99.  
  100. : sigre
  101. echo -n "Please enter the file name containing the message:"
  102. read fname
  103. if !fexist $fname sigerfile
  104. echo -n "Please enter to whom the message is for:"
  105. read to
  106. echo -n "Please enter the message to reply to:"
  107. read subject
  108. echo -n "Please enter the section (precede with 'P' for private):"
  109. read section
  110. apl sess.csh "reply " $fname " " $subject " " $to " " $section
  111. goto sig2menu
  112.  
  113.  
  114. : sigss
  115. echo -n "SS to which section:"
  116. read choice
  117. apl sess.csh "ss " $choice
  118. goto sig2menu
  119.  
  120.  
  121. : sigri
  122. echo -n "RI which message:"
  123. read choice
  124. apl sess.csh "ri " $choice
  125. goto sigwrite
  126.  
  127.  
  128.  
  129. : sigerfile
  130. echo "But there is no such file!"
  131. echo -n "Press return:"
  132. read choice
  133. goto sig2menu
  134. : abort
  135. rm sess.csh
  136. : end
  137. clear
  138. echo "        End of session generation."
  139.